home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / ARexxTools / dme_rexxmacs.lha / FirstErr.dme < prev    next >
Encoding:
Text File  |  1992-04-29  |  601 b   |  19 lines
  1. /* find first error */
  2.  
  3. options results
  4.  
  5. "findfile (*Compiler Errors*)"
  6. "getval ($fname)"
  7. if result ~= '*Compiler Errors*' then do
  8.     title "(No error messages!)"
  9.     exit 0
  10. end
  11. "findfile (*Compiler Errors*) top first find ("'"'") wleft scanf %s set errline $scanf wright right scanf %[\^"'"'"] find ("'"'") right ping 9 set errfile $scanf"
  12. "getval ($errfile)"
  13. errfile = result
  14. "findfile ($errfile)"
  15. "getval ($filename)"
  16. if right(result,length(errfile)) = errfile then "pushmark unblock goto $errline block block"
  17. else "newwindow newfile ($errfile) pushmark unblock goto $errline block block"
  18. exit 0
  19.